home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c++-part2 / 15766 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  865 b 
  1. Path: csulb.edu!rgelb
  2. From: rgelb@csulb.edu (Robert Gelb)
  3. Newsgroups: comp.lang.c++
  4. Subject: Help to translate from AdA to C/C++
  5. Date: 8 Apr 1996 03:11:55 GMT
  6. Organization: Cal State Long Beach
  7. Message-ID: <4ka05r$d2d@hatathli.csulb.edu>
  8. NNTP-Posting-Host: heart.engr.csulb.edu
  9. X-Newsreader: TIN [version 1.2 PL2]
  10.  
  11. I am having a hell of a time trying to translate this ADA program into 
  12. C/C++.  Maybe someone can help me.
  13. Here is the program:
  14.  
  15. type person(sex:gender);
  16. type car;
  17. type person_name is access person;
  18. type car_name is access car;
  19.  
  20. type car is 
  21.     record
  22.         number: integer;
  23.         owner: person_name;
  24.     end record;
  25.  
  26. type person(sex:gender) is 
  27.     record
  28.         name    :string(1..20);
  29.         birth    :date;
  30.         age    :integer range 0..130;
  31.         vehicle    : car_name;
  32.         case sex is
  33.             when M =>
  34.                 wife: person_name(F);
  35.             when F =>
  36.                 husband:person_name(M);
  37.         end case;
  38.     end record;
  39.  
  40.